home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / w.d.n.s. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  78 lines
  1. 10 sys57812("the sprites*"),8,1:poke780,0:sys65493:dima$(25)
  2. 11 forx=1to50:y=int(rnd(1)*127):poke53272,y:nextx:poke53281,0:poke53280,0
  3. 12 poke53272,22:print"[147][144]":poke53281,15:poke53280,11:poke53251,60:poke53286,11
  4. 13 a$(1)="  [218]eitgeist of [200]-[212]  ":poke2040,231:poke2041,232:poke53271,3
  5. 14 a$(2)="   salutes you to   ":poke53277,3:poke53276,3:poke53285,3
  6. 15 a$(3)=" his new [194][193][211][201][195]-[196]emo ":poke53287,7:poke53288,7:poke53248,126
  7. 16 a$(4)="       called       ":poke53250,174:poke53249,60:poke53269,3
  8. 17 a$(5)="[215]e [196]on't [206]eed [211]peed!":forg=1to5:poke53265,11:poke211,10:poke214,10
  9. 18 sys58732:printa$(g):poke53265,27:forq=1to200:nextq,g
  10. 19 f(1,1)=6:f(1,2)=4:f(1,3)=14:f(1,4)=1:f(1,5)=15:f(1,6)=12:f(1,7)=11:f(1,8)=0
  11. 20 forx=1to20:fory=1to8:poke211,10:poke214,10:sys58732:poke646,f(1,y)
  12. 21 printa$(5):poke211,9+x:poke214,11:sys58732:print"[144][163]":poke211,30-x:poke214,11
  13. 22 sys58732:print"[163]":nexty,x:poke211,10:poke214,10:sys58732:print"[151]"a$(5)
  14. 23 poke53265,11:forx=1to15:poke53265,27:fory=1to150-x*10:next:poke53265,11:next
  15. 24 poke53265,27:a$(1)=" [212]his is my [194][193][211][201][195]-[196]emo for the [212]iger- "
  16. 25 a$(2)=" [196]isc-[194]asic-[210]outines-[195]ompo. [212]hey were "
  17. 26 a$(3)="searching for some cool demo-routines,"
  18. 27 a$(4)=" so here they are ! [212]ake my message : "
  19. 28 a$(5)="[215]e [196]on't [206]eed [211]peed-[215]e [196]on't need [193]ss!"
  20. 29 forg=1to5:ifg/2=int(g/2)then32
  21. 30 forx=1tolen(a$(g)):poke211,x:poke214,g+14:sys58732:printmid$(a$(g),x,1)
  22. 31 nextx:goto34
  23. 32 forx=len(a$(g))to1step-1:poke211,x:poke214,g+14:sys58732
  24. 33 printmid$(a$(g),x,1):nextx
  25. 34 nextg:forx=1to8:fory=0to15:poke53280,y:nexty,x:poke53280,11
  26. 35 a$(14)="[212]his is a :-) funny effect,isn't it ? "
  27. 36 a$(15)="[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-"
  28. 37 a$(16)="  [218]ape derech chasek motnajim  smez  "
  29. 38 a$(17)="koach m od,zape derech chasek motnajim"
  30. 39 a$(18)=" amez koach m' od. [218]ape derech chasek "
  31. 40 a$(19)="      motnajim amez koach m' od.      "
  32. 41 a$(20)="[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-"
  33. 42 a$(21)=" [212]hat's an old jewish folk-song. [212]hat "
  34. 43 a$(22)="would mean something like : [204]ook for- "
  35. 44 a$(23)="  ward, but be careful of your way !  ":poke646,1
  36. 45 forx=1to38:ifx/2=int(x/2)then47
  37. 46 fory=14to23:poke211,x:poke214,y:sys58732:printmid$(a$(y),x,1):nexty:goto48
  38. 47 fory=23to14step-1:poke211,x:poke214,y:sys58732:printmid$(a$(y),x,1):nexty
  39. 48 nextx
  40. 55 a$(14)="[198]ed up with text-effects ? [215]ell,simpel"
  41. 56 a$(15)="        but funny,[201] think :-).        "
  42. 57 a$(16)="--------------------------------------"
  43. 58 a$(17)=" [215]ell,well,but here's my colorline #2 "
  44. 59 a$(18)="for all the ones who like to use it in"
  45. 60 a$(19)="     their own cool [194][193][211][201][195]-[196]emos :     "
  46. 61 a$(20)="                                      "
  47. 62 a$(21)=" 06 , 04 , 14 , 01 , 15, 12 , 11 , 00"
  48. 63 a$(22)="                                      "
  49. 64 a$(23)="  [212]hese are my favourite colorcodes.  ":poke646,12
  50. 65 forx=1to8000:next:forx=38to1step-1: ifx/2=int(x/2)then67
  51. 66 fory=14to23:poke211,x:poke214,y:sys58732:printmid$(a$(y),x,1):nexty:goto68
  52. 67 fory=23to14step-1:poke211,x:poke214,y:sys58732:printmid$(a$(y),x,1):nexty
  53. 68 nextx:forx=1to8000:next:poke53269,0:print"[147]":forx=1to50:y=int(rnd(1)*127)
  54. 69 poke53272,y::next:poke53272,22:poke2040,224:poke2041,225
  55. 70 poke53276,7:poke53277,7:poke53285,11:poke53286,12:poke53287,0:poke53288,0
  56. 71 poke53248,35:poke53249,160:poke53271,7:poke53250,35:poke53251,202
  57. 72 poke53269,3:poke53264,3:a$(1)="[196]iz is a good chance to shout out"
  58. 73 a$(2)="some magical greez,[201] think.....":a$(3)=" "
  59. 74 a$(4)="[212]iger[195]rew,[204]opez,[213]nlock,[215]otan":a$(5)="[205]etalvotze,[212][193][201][199][197][210],[197]dwing,[211]hark"
  60. 75 a$(6)="[195]ream":a$(7)="     ....and all [200]igh-[212]ech's :":a$(8)=" "
  61. 76 a$(9)="[208]hoenix,[202][212][210],[199]host,[210]a!,[193][212][200]":a$(10)="[199]unhed [194]attaion,[212][211][214],[210]obin [200]ood"
  62. 77 f(2,1)=0:f(2,2)=6:f(2,3)=2:f(2,4)=5:f(2,5)=7:f(2,6)=1
  63. 78 a$(11)=" ":a$(12)="[193]nyway,ev'rything have to finish":poke53289,0
  64. 79 a$(13)="someday.[211]o we've nearly reached the":poke53252,35:poke53253,210
  65. 80 a$(14)="end of your new fave-demo !":a$(15)=" ":a$(16)="[194]ut never forget :"
  66. 81 a$(16)="[215]e all love our [194]rotkasten -":a$(17)="[196]on't let'em die !!!"
  67. 92 forg=1to17:poke2040,227:poke2041,228:forx=1to8:poke646,f(1,x):poke211,1
  68. 93 poke214,g:sys58732:printa$(g):nextx:forx=6to1step-1:poke646,f(2,x):poke211,1
  69. 94 poke214,g:sys58732:printa$(g):nextx:poke2040,224:poke2041,225:forq=1to300
  70. 95 nextq,g:poke53269,7:forg=1to10:forq=1to4:poke2042,242+q:fory=1to50:nexty,q,g
  71. 100 poke53269,4:poke53271,0:poke53277,0:poke2042,247:poke53276,0:poke211,5
  72. 101 poke214,20:sys58732:print"[151][217]eah ! [200]ope ya enjoyed our time"
  73. 102 printtab(5)"together ! [211]ee ya...[218]eitgeist/[200]-[212]":forx=1to3000:nextx
  74. 103 forg=1to21:ifg/2=int(g/2)then105
  75. 104 forx=1to38:poke211,x:poke214,g:sys58732:print" ":nextx:goto106
  76. 105 forx=38to1step-1:poke211,x:poke214,g:sys58732:print" ":next
  77. 106 nextg:poke53269,0:forg=1to10:forq=0to15:poke53280,q:nextq,g:sys64738
  78.